home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 22
/
Cream of the Crop 22.iso
/
program
/
ctlib100.zip
/
INSTALL.LZH
/
TESTS.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-10-12
|
1KB
|
32 lines
{**************************************************************************}
{* BitSoft Development, L.L.C. *}
{* Copyright (C) 1995, 1996 BitSoft Development, L.L.C. *}
{* All rights reserved. *}
{**************************************************************************}
program ContainersTests;
{ This program tests all objects in the containers hierarchy. To have the
objects display error messages, you must compile the library using the
cdDebug global conditional define. }
uses Main;
var
App : TContainersDemo;
SaveMem : LongInt;
begin
SaveMem := MemAvail;
App.Init;
App.Run;
App.Done;
if MemAvail <> SaveMem
then begin
Writeln('Not all memory deallocated: ', SaveMem - MemAvail,
' bytes.');
Writeln;
Writeln('(press ENTER to continue)');
readln;
end; { if }
end.